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module EXAMPLE : ' 

input RESET, START; output GOT; 

signal REQUEST, GRANT in 

loop abort % RESET restarts the loop 

await START; 
emit REQUEST; 

present GRANT then emit GOT end 
I I % run concurrently 

loop 

present REQUEST then emit GRANT end; 

pause; % wait for the next cycle 

pause 
end 

when RESET end 
end. 
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P:q p;q; 

Figure 2B 

emits S = 1; 

Figure 2C 

loop p end for (;;) p; 

Figure 2D 

present S then p else q end if (S) p; else q; 
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pause \ 



case k: 



state = k; 

if (level < 1) level = 1; 
goto Join; 



await S 
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goto Entry; 



case k: 



if (IS) { 
Entry: 



state = k; 

if (level < 1) level = 1 
goto Join; 



abort 



body 



when S 
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case k: 



goto Entry; 



if (IS) 



switch (state) { 

Entry: body; 

} 



suspend 



body 



when S 
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goto Entry; 



case k: 



if (S) { 



if (level < 1) level = 1 
goto Join; 



} 

switch (state) { 

Entry: body; 

} 
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signal S in S = 0; -. 

goto Entry; 
case k:. 

S = 0; 

switch (state) { 
body . ,;, • ., : ,. Entry: body; 

end ' . \; r) . 

Figure 3F 

exit T; if (level < 2) level = 2; 

- goto Join; 
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trap t in 

bodyA 

II 

bodyA 

handle T do 
handler 

end 



innerLevel = 0; 
fork StartA, StartB; 
case k: 

innerLevel = 0; 
, fork ResumeA, ResumeB; 

ResumeA: 

switch (statep) { 
StartA: bodyA; 
case 0: ; 

} : 
goto InnerJoin; 

ResumeB: 

switch (stateq) { 
StartB: bodyB; 
case 0: ; 
} 

goto InnerJoin; 

InnerJoin: 
join; 

switch (innerLevel) { 
case 1 : /* paused */ 
state = k; 

if (level < 1) level = 1 
goto OuterJoin; 
case 2: /* exited */ 
handler; 
break; 

} 
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pause; 
pause; 

abort 

pause; 
pause; 

abort 

pause; 
pause 

when A; 

pause; 

pause 

when B 



Start: goto LO;, 
Resume: 
switch (s & 0x3) { 
L0: s=1; goto Join; 
case 1: s=2; goto Join; 
case 2: goto L1;< 
case 3: if (!B) 

switch (s»2 & 0x7 ) { 

L1: s=3 | 0«2; goto Join; ' 

case 0: s=3 | 1«2; goto Join; 

case 1: goto L2; 

case 2: if (!A) 

switch (s»5) { 

L2: s=3 | 2«2 | 0«5; goto Join; 
case 0: s=3 | 2«2 | 1«5; goto Join 
case 1 : 
} 

s=3 | 2«3; goto Join; 
case 3: s=3 | 2«4; goto Join; 
case 4: 

} 

s = 0; goto Join; 

case 0: ; /* not running 7 

} 

Join: 
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loop 



trap T in 

loop 



end 



end 



end 

pause; 
exit T; 



present A 
then 

emit B 

end; 
pause; 



if (inLaterCycles) { 



if (A) then B = 1; 
/* pause (level 1) */ 

T exit T (level 2) */ 



if(A)thenB = 1; 
/* pause (level 1) */ 

II 

/* pause (level 1) */ 
inLaterCycles = 1; 
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1 /* THE THREE MAIN DATA TYPES OFACCFG: CNODE, PROCESS, and THREAD 

2 MAIN DATA TYPE OF SCFG IS SNODE. 
3 

4 cnode = node in the acyclic concurrent control-flow graph (accfg) 

5 snode = node in the sequential control-flow graph (scfg) */ 
6 

7 /* The properties of a cnode are defined as follows: */ 
8 

9 cnode : : pthreads ; /* Threads to which this cnode belongs ("parents ") Most 

1 0 nodes belong to exactly one thread. The exceptions are join nodes, which belong to each 

1 1 thread they join, and the topmost process, which belongs to no thread. */ 

13 /*A "predecessor " is a (snode, condition) pair that will be used as the source and label 

1 4 respectively of an added arc Each predecessor is an snode that could run a cnode */ 
15 

16 cnode : : runningPf edecessbrs ; /* set of normal snodes */ 

17 cnode: : restartPredecessor; /* restart snode */ 
18 

19 /* The distinction between the two types of predecessor (i.e., "running" and "restart") is 

20 used in the "suspend any running thread in process p " routine, which avoids creating 

21 save state nodes for restart nodes. */ 
22 

23 cnode : : index ; /* integer index of the node, (topological order number) */ 

25 cnode : : s t a t e ; /* Possible states are: Running, Runnable, or Suspended. Only a 

26 "process " can be in a "Running " state, which means it contains a thread which is 

27 actively executing. */ 
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1 



/*A Process is a cnode (and therefore inherits the properties of a cnode) that 

2 corresponds to a fork node and contains one or more threads. 

3 A process 's state may be Suspended, Runnable, or Running. 

4 A Suspended process is contained in a thread that is not running. 

5 A Runnable process is contained in a thread that is running, but none of the 

6 threads contained in the process are running. A Runnable process is ready to restart one 

7 of the threads it contains. 

8 A Running process means one of its contained threads is currently running (i. e., 

9 executing instructions). . 
10 

1 1 Suspending the running thread within a process changes the process 's state from 

1 2 Running to Runnable. This is typically followed by starting (or restarting) another 

1 3 thread, contained within the process, which changes the process 's state from Runnable 

1 4 back to Running. This suspension of one thread and the starting (or restarting) of 

1 5 another thread is also known as a "context switch. " 
16 

1 7 The properties of a process and a thread are as follows. */ 

18 

19 proce s s :: threads ; /* The threads contained in the process */ 
20 

21 process : : runningThread; /* Indicates which, if any, of the threads contained in 

22 the process is the currently running thread. */ 
23 

24 thread : : process ; /* Which process contains this thread */ 
25 

26 thread : : cnodes ; /* The cnodes in this thread that could be executed next */ 
27 

28 thread : : s tateVariable ; /* State variable used for saving the state of the thread 

29 when the thread is suspended. This state variable is subsequently read when the thread is 

30 resumed. */ 
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1 /* MAIN ROUTINE: "synthesize a scfg" 

2 This main routine synthesizes the scfg from the input accfg */ 

4 synthesize a scfg 

5 { , ■ ■ . ' .'/ 

6 /* IN1TIALIZA TION: Create the outermost process and a single thread within in Put the 

7 first scheduled node in this thread. The thread starts out suspended; the first iteration of 

8 the main loop will resume it. * '/ 
9 



en = create -the SCFG entry node; " 
op = create the outermost process;' •' 



10 
11 
12 
13 

14 op. state = Runnable;- * . ... 

15 

16 op. runningThread = none; • • , 

17 "•' ; ' 

18 op.runningPredecessors += (en, -) ; /* Entry node "en" is made to be 

19 the runningPredecessor of "op " and the edge from op to en has no label as indicated by 
! f 20 the hyphen */ y 
>M 21 

;JJ 22 op.pthreads = empty /* By definition, the outermost process is not in a thread. */ 

24 op . restartPredecessor = empty; 
S 25 

! 'i 26 tt = new thread; 
W 27 

28 op. threads += tt; 
29 

30 tt. process = op; 
31 

32 fn = first node in the schedule; 
33 

34 /* Set the state variable used by the outermost thread */ 

35 tt . stateVariable = fn. index 
36 

37 tt.cnodes += fn; 



38 
39 
40 

41 fn. state = Suspended; 



39 fn.pthreads += tt; /* Put the first node in the top thread */ 
40 
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1 /* MAIN LOOP: successively assigns to current node "cn " each cnode of the input accfg 

2 in order of the topological sort. */ 

3 _ • ' ; ;; 

4 for each node cn in scheduled order { 

6 sn = copy node cn and its expression into the SCFG; 

7 th = first thread in cn.pthreads; /* Thread of this node */ 

9 /* Rest of this loop is divided into four main code blocks labeled A, B, C and D. 

10 For each cnode assigned tocn, a code block from A or B, and a code block 

1 1 selected from C or D, is executed. 
12 

13 The pair of code blocks selected for execution depends on the type of the cnode, 

14 and is illustrated by the following table: 
15 

16 cnode type: Normal Fork Join' 

1 7 selection from A or B: B B A 

1 8 selection from C or D: D C D 
19 

20 iff cn is a join node ) { 

2 1 /* CODE BLOCK A */ 

22 /* Earlier, this join node would have been placed in all of the threads it 

2 3 was joining. Run it in its parent's thread. */ 

2 4 p = th. process; 

2 2 th = thr ead in p.pthreads; /* unique since this is a process */ 

26 switch to thread th; 

2 ? suspend any running thread in p; 

2 8 run cnode p as snode sn; 

2 ^ t h . cn ode s - = p ; /* Delete the now-terminated process */ 

31 } else { /* cn is a Normal or Fork node */ 

32 /* CODE BLOCK B */ 

33 switch to thread th; 

34 run cnode cn as snode sn; 

35 /* We've run cn, so it no longer plays a role in the thread */ 

36 th.cnodes -= cn; 

37 } 
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1 if ( cn is a fork node ) { ' : '- 

2 */* CODE BLOCK C*/ ■* ' ' \ 

3 process = new process; ' ' ' 

4 process. state = Runnable; 

5 process . runningThread = none; 

6 process. runningPredecessors += (sn, -) ; /*Notethat 

7 edge from "process " to sn has a empty label */ 

8 process. restartPredecessor = empty; 

9 th . cnodes += process ; /* Put the new process in its thread */ 
10 for ( each successor ens. of cn ) { 

1 1 /* Create a new thread for each successor and put the successor 

1 2 node in the new thread, */ 

13 thread = new thread; 

14 ■ process . threads += thread;' 

15 thread. stateVariable = ens. index; /* Set the state 

1 6 variable for "thread" to have a default value being the topological 

17 index of ens. */ 

18 thread. cnodes += ens; 

f h 19 put cnode ens in thread thread; 

jl^ 20 /* Initialize state of successor */ 

% 21 ens. state = Suspended; 

22 } 
,1 23 

"Hi 

$1 24 } e 1 s e { /* This is a Normal or Join node */ 

0 25 /* CODE BLOCK D */ 

iijl 26 for ( each successor ens of cn ) { 

« 27 th. cnodes += ens; 

Cp 28 put cnode ens in thread th; 

i«p 29 ens . runningPredecessors += (sn, edge 

Q 30 condition from cn to ens in the input accfg) ; 

'iH 31 } /* end u for ( each successor ens of cn )" */ 

W 32 } /* end "else" */ 

CP 33 

34 } /* end MAIN LOOP */ 
35 

36 } /* end "synthesize a scfg" */ 



Figure 6F 



1 run cnode cn as snode sn 

2 { . , ; :. * • ; • ; 

3 for ( each/node snp .in. cn. runningPredecessors ) 

4 add an edge from snp to sn, labeled like the 

5 predecessor edge from cn to snp; 
6 

7 if ( cn. restartPredecessor is not empty ) 

8 add an edge from cn.' restartPredecessor to sn, labeled 

9 like the predecessor edge from cn to 
10 cn. restartPredecessor; ' * 
11 

1 2 /* having used these predecessor edges, they should now be removed */ 

13 cn . runningPredecessor =.'empty; 

14 cn. restartPredecessor = empty; 

15 } 
16 

17 

18 put cnode ens in thread th 

19 { 

20 if th is not already in ens . pthreads, 

21 ens. pthreads += th; 

22 } 
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1 switch to thread th 

2 { 

3 /* "switch to thread th " does nothing if the thread is already running. If the thread is not 

4 running, it saves the state of any already-running thread (suspends it) and restarts the 

5 desired thread. */ 
6 



7 /* If there is at least one thread above "th, " make sure it is also running */ 

8 if ( th. process. pthreads is not empty ) 

9 /* The parent thread is unique for a process */ •■ ' 

10 switch to thread, th. process. pthreads; 

11 . • 

12 p = th. process; *. , . .. 
13 

14 /* If a different thread is running, suspend it */ 

15 if ( p. state == Running AND p . runningThread != th ) 

16 suspend any running thread in p; 
17 

18 if ( p. state == Runnable ) { 

1 9 /* Restart our thread by adding a restart node and making this restart node a 

20 predecessor of each suspended node. */ 
21 

22 rn = new restart node ( th. stateVariable ); /* Build a 

23 restart node (ofSCFG) which tests state of the state Variable for thread which is 

24 to be switched to. This stateVariable needs to have been set appropriately when 

25 thread th was previously suspended. V 



27 run cnode p as snode rn; 
28 

29 for ( each cnode cn in th.cnodes ) { 

30 cn.restartPredecessor = (rn, cn. index); /* Create an 

31 edge from cn to rn whose label has the value cn. index V 
32 

33 cn. state = Runnable; 

34 } 
35 

36 p. state = Running; 

37 p. runningThread = th; 
38 

39 } /* end u if(p.state == Runnable ) " V 
40 

41 } /* end "switch to thread th " */ 
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1 suspend any running thread in process p 

2 { . ; , 

3 if ( p. state == Running ) { . * ..." 

4 /* This process has a running thread — suspend it */ 

5 p. state = Runnable; 

6 th = p . runningThread; 

7 restartNocie = none; /* Set when the restart node needs a default arc 

8 leading from it to suspend this thread */ 
9 

1 0 /* Save state if there is more than one running cnode in the thread */ 

11 needToSaveState • = true if there is more- than one cnode 

12 in th; ... /* . 

13 needToSaveState^ = false if , there is not more than one 

14 cnode in th; . • . - . < . 
15 

1 6 /* Suspend each cnode in the the thread */ 
17 

18 for ( each cnode cn in th.cnodes ) { 
19 

20 /* Suspend any running threads in a process node */ 

21 if ( cn is a process ) 

22 suspend any running thread in cn; 
23 

24 /* Suspend all running predecessors for this node */ 

25 if ( cn. runningPredecessors is not empty ) ( 
26 

27 if ( needToSaveState ) { 

28 sn = new save state node (state for this 

29 thread = cn. index ); /* Makes the "expression" 

30 ofsn be the following assignment statement: 

31 th state Variable = cn. index. V 
32 

33 for ( each snode snp in 

34 cn. runningPredecessors ) 

35 add an edge from snp to sn, labeled 

36 like the predecessor edge from cn 

37 to snp; 
38 

39 cn. runningPredecessors = empty; /* having 

40 used these predecessor edges, they should now be removed 

41 */ 
42 

43 p. runningPredecessors += (sn, -) ; /* add 

44 an edge from p.runningPredecessors to sn, with no label */ 



Figure 61 

} else ,{ /* do not save state */ 

for ( each .'snode .. snp in ■ 
cn. runningPredecessors ) , ... 

p. runningPredecessors' += (snp, take 
label from the edge cn to snp) ; 



' cn. runningPredecessors = empty; /* having 

8 used these predecessor edges, they should now be removed 

9 ; */ •"' * ■ • ' •; • 

10 } /* end "else" */' ' ' ' - - : 

11 ■ ■ . - . . , 

12 } /* end "iff cn. runningPredecessors is not empty )'" */ 

13 - 

1 4 /* Rembmer the restart node if this node- has a restart predecessor. */ 
15 

16 if ( cn. restartPredecessor is not empty ) { 

17 restartNode = cn. restartPredecessor ; 

18 /* Remove this precessor edge since it is empty */ 

19 cn. restartPredecessor = empty; 

20 } 
21 

22 cn. state = Suspended; 
23 

24 } /* end "for ( each mode cn in thcnodes ) " */ 
25 

26 p. runningThread = none; 
27 

28 if ( restartNode is not none ) { 

29 /* At least one node had a restart predecessor: make sure an arc with a default 

30 condition is added from the restart node to handle this condition */ 

31 p. runningPredecessors += (restartNode, -) ; 

32 } 
33 

34 } /* end if (p. state == Running) */ 
35 

36 } /* end "suspend any running thread in process p " */ 



1 
2 
3 
4 
5 



SB 




„ too) ^uV«r* r* 




loo ( loos l°l° 



1 tu 



8E , 




/o0 % /ol0 



■1 •■>.- 

"1 ; 




# 



^jurc 87" 



/ooo 




4.S 




C. 8q 




/OSS 



i 



je.4~ ne.%4- current 
node, in CCFGx 



cdpj current hoWe. 
SCFGn aS; ccirV*tn"/" 
node; 










(nstr 



conned- cjjes -/rcn 
Cnrren"f" nodeS^s 
predecessors in SCF<s\ 
curr«Ki"f" SCFG node. 




